home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 096 / addlf.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  617 b   |  20 lines
  1. 5   'PUBLIC DOMAIN PROGRAM TO ADD LINEFEEDS TO DOWNLOADED FILES.
  2. 6   'DOWNLOAD FILES WITHOUT LF'S OVERWRITE THE SAME LINE WHEN LISTED.
  3. 7   'WRITTEN BY DON WITHROW, 1982
  4. 10  CLS:LOCATE 10,1,1
  5. 20  INPUT"FILENAME THAT NEEDS LINEFEEDS (WIHOUT DRIVE)";FILEONE$
  6. 30  PRINT
  7. 35  INPUT"DRIVE FILE IS ON (WITHOUT COLON)";DRIVE$:DRIVE$=DRIVE$+":"
  8. 40  OPEN DRIVE$+FILEONE$ FOR INPUT AS #1
  9. 50  OPEN DRIVE$+"TEMP" FOR OUTPUT AS #2
  10. 60  IF EOF(1) THEN 90 ELSE LINE INPUT #1, THELIN$
  11. 70  PRINT #2, THELIN$
  12. 80  GOTO 60
  13. 90  CLOSE
  14. 91  KILL DRIVE$+FILEONE$
  15. 92  NAME DRIVE$+"TEMP" AS DRIVE$+FILEONE$
  16. 95  PRINT
  17. 97  PRINT"FILE ";FILEONE$;" NOW HAS LINEFEEDS AFTER CARRIAGE RETURNS."
  18. 98  PRINT:PRINT
  19. 100  END
  20.